home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #1 / Ham Radio 2000.iso / ham2000 / packet / p_aa4re / bb212src / bbcbe.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-12-19  |  1.9 KB  |  37 lines

  1. (*===========================================================================*)
  2. (* Control Block -- Search action                                            *)
  3. (*                                                                           *)
  4. (*   Copyright 1991 by H. Roy Engehausen.  All rights reserved.              *)
  5. (*                                                                           *)
  6. (*===========================================================================*)
  7.  
  8.   CONST
  9.     search_string_types = 'MUEQS><@%$'; (* These search types have variable  *)
  10.                                         (* length strings.  Note 1 character *)
  11.                                         (* strings are skipped               *)
  12.     search_overhead_length_string = 21;
  13.     search_overhead_length_other  = 24;
  14.  
  15.   TYPE
  16.  
  17.     search_block_ptr  = ^search_block_type;
  18.  
  19.     search_block_type = RECORD
  20.                        search_next       : search_block_ptr;
  21.                        search_direction  : BOOLEAN;(* Direction is important *)
  22.                        search_ascend     : BOOLEAN;(* Do ascending search    *)
  23.                        search_above      : BOOLEAN;(* Match on >=            *)
  24.                        search_nok        : BOOLEAN;(* Ignore K messages      *)
  25.                        search_invert     : BOOLEAN;(* This test is for not   *)
  26.                        search_one_only   : BOOLEAN;(* Search only this msg   *)
  27.                        search_type       : CHAR;
  28.                        search_last       : msg_index_ptr;
  29.                        search_fi         : BYTE;
  30.                        search_mf         : msg_flag_type;
  31.                        search_msg_no     : WORD;
  32.                        CASE BYTE OF
  33.                          0: (search_dt         : LONGINT);
  34.                          1: (search_str        : STRING);
  35.                          2: (search_user_class : user_class_type);
  36.                      END;
  37.